res <- matrix(c(345,132,365,135),ncol=2,byrow=TRUE)
rownames(res) <- c("Murder or manslaughter(x)", "Subject by gender(n)")
colnames(res) <- c("Male", "Female")
res = as.table(res)
res
#calculate
res <-prop.test (x= c(345,132), n=c(365,135), alternative = "greater")
#printing the results
res

res$p.value
res$estimate
res$conf.int
